Release 10.1A: OpenEdge Development:
Programming Interfaces

Importing policies from XML

OpenEdge provides the persistent procedure, src/auditing/_imp-policies.p that provides an API to import an XML file containing audit policies into either a database or a ProDataSet. This procedure must be executed persistently and then the caller should execute the internal procedures depending on the target for the policies—a ProDataSet or a database. This procedure is used by both the Audit Policy Maintenance tool and the Data Administration tool when importing audit policies from an XML file.

For a database, call the import-xml-db procedure and save-changes-to-db procedure. For a ProDataSet, call the import-xml-fill-dset procedure and copy-changes-to-dset procedure. The cleanup internal procedure should be called before deleting the persistent procedure.

Note: Import procedure for loading audit policies from an XML file into an OpenEdge database does not refresh the database cache automatically. It's up to the caller to decide if the cache should be refreshed. You can either call the refresh-db-cache procedure or directly call the AUDIT-POLICY:REFRESH-AUDIT-POLICY() method.

The following example is a combination of pseudo-code and 4GL that shows how to use some of the procedures that are provided in _imp-policies.p and described in the following sections:

Example calls to the API for importing audit policies from XML

DEFINE VARIABLE cErrorMsg    AS CHARACTER NO-UNDO. DEFINE VARIABLE hProc        AS HANDLE    NO-UNDO. DEFINE VARIABLE cList        AS CHARACTER NO-UNDO. /* start the importing procedure */ RUN auditing/_imp-policies.p PERSISTENT SET hProc. /* try to load the file and save the changes into the database */ RUN import-xml-db IN hProc (INPUT "text.xml", /* XML file name */                    INPUT "sports", /* logical db name */                    INPUT YES,      /* wait on lock */                    INPUT NO,       /* override existing policies */                    OUTPUT cList,   /* list of duplicate policies */                    OUTPUT cErrorMsg). /* check if there was an error */ IF cErrorMsg = "":U THEN DO:     IF cList <> "":U THEN DO:         MESSAGE "The following policies already exist: " cList SKIP             "Do you want to override them? (If you answer yes, the tool will"             SKIP "delete the listed policies before importing them)"             VIEW-AS ALERT-BOX             QUESTION BUTTON YES-NO UPDATE choice AS LOGICAL.         /* if the user wants to override policies,            need to call save-changes-to-db to get them saved         */         IF choice = TRUE THEN DO:             RUN save-changes-to-db IN hProc                     (INPUT "sports", /* logical db name */                      INPUT YES, /* wait on lock */                      OUTPUT cErrorMsg).              IF cErrorMsg <> "" THEN  /* an error occurred */                  MESSAGE cErrorMsg VIEW-AS ALERT-BOX.         END.     END. END. ELSE /* an error occurred */     MESSAGE cErrorMsg VIEW-AS ALERT-BOX ERROR. /* clean up the procedure and delete it */ RUN cleanup IN hProc. DELETE PROCEDURE hProc.